7 DIM LK(1000)
8 FOR RT=1024TO2023:POKERT,160:NEXTRT
10 NM$="FILENAME"
12 OPEN 6,8,6,"0:"+NM$+",S,R"
14 FOR QA=55296 TO 56295
16 INPUT#6,LK(QA-55295):NEXTQA
17 CLOSE 6
18 FOR WE=55296TO56295
19 POKE WE,LK(WE-55295)
20 NEXT